(define (div-interval a b)
  (if (<= (* (lower-bound b) (upper-bound b)) 0)
    (error "error")
    (mul-interval x
                  (make-interval (/ 1.0 (upper-bound y))
                                 (/ 1.0 (lower-bound y))))))
